home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / mags-docs / zcd / installa < prev    next >
Text File  |  1999-01-01  |  4KB  |  127 lines
  1. ;
  2. ; Script di installazione per il listino NonSoLoSoft (20.08.97)
  3. ;
  4.  
  5. ; Stringhe
  6.  
  7. (set @default-dest  "")
  8. (set @default-message "")
  9. (set @icon-message "Quale set di icone preferisci?")
  10. (set @standard          "Standard a 4 colori")
  11. (set @magic             "MagicWB a 8 colori")
  12. (set @newicon           "NewIcons")
  13. (set @iconhelp  (cat " Seleziona quale set di icone intendi installare per il Listino\n\n"))
  14. (set listino-dest    "Ram:")
  15.  
  16. ; E' un Amiga 3.0?
  17.         (if (< (/ (getversion) 65536) 37) (abort "Devi avere il Kickstart 2.0 (o superiore) per installare\n il listino"))
  18.  
  19.         (message
  20.                 (cat      "\n\n\nNonSoLoSoft, script di installazione del listino.\n"
  21.                           "Questa procedura installa il listino NonSoloSoft sul vostro Amiga.\n\n"
  22.                           "(C) Copyright 1991-1997 NonSoloSoft.\n Tutti i diritti sono riservati"
  23.                 ))
  24.  
  25.         (set listino-dest
  26.                 (askdir
  27.                         (prompt  "Dove desideri installare il Listino NonSoloSoft? (sarà creato un nuovo cassetto chiamato 'NonSoloSoft')?")
  28.                         (help    "Seleziona il cassetto in cui installare la directory NonSoloSoft.")
  29.                         (default listino-dest)
  30.                         (disk)
  31.                 )
  32.         )
  33. ; Quali icone?
  34.  
  35.  
  36.  
  37. (set icon (askchoice
  38.         (prompt @icon-message)
  39.         (help (cat @iconhelp @askchoice-help))
  40.         (choices @standard @magic @newicon )
  41.         (default @standard)
  42. ))
  43.  
  44.  
  45. (if (= icon 0)
  46.                 (set iconpath "standard/")
  47.         )
  48. (if (= icon 2)
  49.                 (set iconpath "newicons/")
  50.         )
  51. (if (= icon 1)
  52.                 (set iconpath "mwbicons/")
  53.         )
  54.  
  55.  
  56.  
  57. ;        (if (NOT (exists (tackon listino-dest "NonSoloSoft")))
  58. ;            (makedir (tackon listino-dest "NonSoloSoft")
  59. ;                     (infos)))
  60.         (working
  61.                 (cat      "\n\n\nAttendere prego,\n"
  62.                           "sto installando il listino.\n"
  63.                           "Nel frattempo ti ricordo il mio orario:\n"
  64.                           "Dal martedì al venerdì\n"
  65.                           "Dalle 14.30 alle 18.30\n"
  66.                           "\nfax 24h/24: 011-9415237\n\n(C) Copyright 1991-1997 NonSoloSoft.\nTutti i diritti sono riservati"
  67.                 )
  68.         )
  69. ;        (copyfiles
  70. ;            (prompt "Attendere Prego...")
  71. ;            (source "NonSoloSoft/")
  72. ;            (dest   (tackon listino-dest "NonSoloSoft"))
  73. ;            (all)
  74.  
  75.          (run (cat "lhex -qfw=" listino-dest " x nonsolosoft.lha"))
  76.  
  77. ;        )
  78.  
  79.         (copyfiles
  80.             (prompt "Copio 'Listino.info' in " listino-dest "NonSoloSoft/...")
  81.             (source (tackon iconpath "Listino.info"))
  82.             (dest   (tackon listino-dest "NonSoloSoft"))
  83.         )
  84.  
  85.         (copyfiles
  86.             (prompt "Copio 'TurboCalc.info' come " listino-dest "NonSoloSoft/...")
  87.             (source (tackon iconpath "TurboCalc.info"))
  88.             (dest   (tackon listino-dest "NonSoloSoft"))
  89.         )
  90.  
  91.         (copyfiles
  92.             (prompt "Copio 'AmyResource1.info' come " listino-dest "NonSoloSoft/...")
  93.             (source (tackon iconpath "AmyResource1.info"))
  94.             (dest   (tackon listino-dest "NonSoloSoft"))
  95.         )
  96.  
  97.         (copyfiles
  98.             (prompt "Copio 'NonSoLoSoft.info' come " listino-dest "NonSoloSoft/...")
  99.             (source (tackon iconpath "NonSoLoSoft.info"))
  100.             (dest  listino-dest )
  101.         )
  102.  
  103.         (copyfiles
  104.             (prompt "Copio 'Leggimi.txt.info' come " listino-dest "NonSoloSoft/...")
  105.             (source (tackon iconpath "Leggimi.txt.info"))
  106.             (dest  (tackon listino-dest "NonSoloSoft/Listino/" ))
  107.         )
  108.  
  109.         (copyfiles
  110.             (prompt "Copio 'SoLo.info' come " listino-dest "NonSoloSoft/...")
  111.             (source (tackon iconpath "os2.x.guide.info"))
  112.             (dest  (tackon listino-dest "NonSoloSoft/Listino/"))
  113.             (newname "Solo.guide.info")
  114.         )
  115.  
  116.         ( if (>= (/ (getversion) 65536) 39)
  117.            (copyfiles
  118.             (prompt "Copio 'SoLo.info' come " listino-dest "NonSoloSoft/...")
  119.             (source (tackon iconpath "os3.x.guide.info"))
  120.             (dest  (tackon listino-dest "NonSoloSoft/Listino/" ))
  121.             (newname "Solo.guide.info")
  122.             )
  123.         )
  124.  
  125.  
  126.  
  127.